home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / mac / textures_figs / figure.macros / Figure_macros.tex < prev    next >
Text File  |  1992-01-06  |  62KB  |  1,123 lines
  1. % FIGURE HANDLING MACROS (written by P. Galko,  Aug 13/90)
  2. % ⌐ P. Galko
  3. %
  4. % CHANGE HISTORY:
  5. % ==============
  6. % Addition of the \incposition macro and the \captionbaselineskip
  7. % parameter (controls linespacing in captions), and changes to stop using 
  8. % \count0 through \count4. Small changes to text as well.         Jan.  6/92  
  9. % -
  10. % Additions to the explanatory text, correction of the \scaledfigure macro
  11. %  (the provision for an external pictfile had been missing), correction to the
  12. %  \scaledepsffigure macro, the addition of the missing definition of \@pictf,
  13. %  addition of the ability to shift figures horizontally without bounding box
  14. %  changes, changes to the \checknumber macro to allow EPSF bounding box 
  15. %  values to be any real number [Illustrator 3.2 can produce this, although
  16. %  Adobe's own documentation states that conforming EPSF 3.0 files have only
  17. %  integer valued coordinates in the %%BoundingBox statement.]    Dec. 19/91
  18. % -
  19. % Changes to explanatory text, the addition of the three macros to handle 
  20. %  epsf files more automatically (\epsffigure, \scaledepsfigure, and 
  21. %  \stretchedepsffigure), and a modification in the computation of dimensions
  22. %  with scaled objects was made so that the computation is almost absolutely
  23. %  accurate (the error in computing scaled values before was between 0 and
  24. %  .01524pt * [the scaling factor] which is almost always negligible on a 300dpi
  25. %  printer where 1 pixel is about .24pt; thus this improvement is unlikely to be
  26. %  noticed except in very delicate situations or when scale factors are
  27. %  significantly larger than 15 [i.e., scaled by 15000]).         Sept.27/91
  28. % -
  29. % Corrected \hboxmax macro                                        Feb. 11/91
  30. % -
  31. % Updated to allow for the possibility of PICT file (the "\special pictfile"  
  32. %   option added in Textures 1.3).                                Feb.  2/91 
  33. % -
  34. % Modified to add "\par" after $$ in scaledfigure and figure macros to stop 
  35. %  the possibility of page breaks between a figure and its caption (an 
  36. %  empty box with glue was formerly being added there).           Jan.  8/91 
  37. % -
  38. % Editorial changes clarifying things further                                                                                    Aug. 21/90 
  39. % -
  40. % The example macro was corrected ("i" in param #1 should have been "epsf") 
  41. %   and added a \reposition figure placement command.             Aug. 20/90 
  42. %
  43. % This is a collection of macros which is intended to make the task of importing
  44. % drawing into Textures documents easier. The main macro is the \figure macro.
  45. % It will insert a named graphic object in the typeset document and centering
  46. % it on the full current line according to the object dimensions given to the
  47. % macro (or determined from the BoundingBox comments in the epsf file in the
  48. % case of the \epsffigure and \scaledepsffigure macros). To properly understand
  49. % how this works, you need to understand that on the Macintosh there are
  50. % different ways in which graphic objects are stored.  These storage methods
  51. % are discussed briefly below.
  52. %
  53. % PICT and EPSF:
  54. % =============
  55. % When an object is drawn on a Macintosh screen, the Macintosh is using a
  56. % description of the object given in its own graphic language called
  57. % Quickdraw. When you want to print the picture, the printer driver may take
  58. % this Quickdraw description and convert it to instructions which the printer
  59. % needs to produce (hopefully) the same result.  Quickdraw, however, has certain 
  60. % limitations on its graphic powers arising from its being tailored to the
  61. % limited resolution of the 72 dpi Mac screen.  As a result, when the printing of
  62. % a graphic object rendition occurs in the manner just described, the quality of
  63. % the printed image suffers with respect to the drawer's original intention (not
  64. % the Mac screen) even if the printer is inherently capable of greater resolution.
  65. % Many printers (such as the LaserWriter printers) are capable of much better
  66. % resolution than the Macintosh screen provides and often have other graphic
  67. % languages built-in to them that are more powerful than Quickdraw.  A
  68. % particularly widely used class of printers are those which use PostScript to
  69. % describe everything to be printed.  PostScript is a powerful graphic language
  70. % developed by Adobe Systems Incorporated which has become an industry standard
  71. % for page description.  It allows a graphic object to be described intrinsically
  72. % without worrying much about the resolution of the printer. It is the printer
  73. % and the PostScript interpreter on a particular printer which completes the
  74. % task of building the raster image of the graphic object. There are PostScript
  75. % printers available with a variety of resolutions from 300 dpi all the way to
  76. % 1800 dpi (and perhaps higher).  The Apple LaserWriter II NT, and NTX printers
  77. % are 300 dpi PostScript printers, while Apple's newest printers the LaserWriter
  78. % IIf and IIg are said to effectively have a resolution of 600 dpi (they are
  79. % not true 600 dpi printers however).  Besides providing flexibility and much
  80. % better resolution, PostScript also provides special effects not available
  81. % in Quickdraw (for example, Quickdraw is incapable of writing *directly* text
  82. % at an angle).  Since there is no direct correspondence between PostScript
  83. % and Quickdraw, programs which want to produce high quality results on
  84. % PostScript printers must effectively produce two descriptions of a drawing
  85. % in the end: a Quickdraw description and a PostScript description (actually,
  86. % what some programs do is to generate their own special description of
  87. % graphical objects which they can then translate into Quickdraw [in some
  88. % rough form] and PostScript).
  89. %
  90. % In the Macintosh world their are a few common forms that are used for
  91. % defining or storing pictures. When a Quickdraw description of a graphic object
  92. % is stored, it is stored in "PICT format", either as a PICT file or as a
  93. % PICT resource in another type of file (resources are like small subfiles
  94. % stored in the resource fork of a Macintosh file [every Macintosh file is
  95. % actually two files which are described as the two forks of the file: a data
  96. % fork and a resource fork]). (There is actually a few variants of the PICT
  97. % format, but thats a minor detail.)  Since every application can draw a graphic
  98. % object on the screen, it can usually deal with PICT descriptions; Textures is no
  99. % exception and can import these PICT defined objects and place them in resources
  100. % in the resource fork of the file holding your TeX source and the typeset
  101. % results file, or it can read them from an external PICT file (as can be
  102. % produced by MacDraw). When placed as resources in your document, these can be
  103. % viewed in the pictures window in Textures. To bring in a drawing into the
  104. % pictures window you simply use the cut and paste operations either with the
  105. % clipboard, the scrapbook, or if you are running Multifinder (or System
  106. % 7) seemingly directly between applications. (The source of your TeX file is
  107. % stored in the data fork of a Textures file, with the DVI of the typeset
  108. % result stored in the resource fork [one resource for the DVI output for each
  109. % separate page] along with the PICT resources defining pictures.) 
  110. % Unfortunately since such graphic object descriptions can commonly run in size
  111. % to 50 kilobytes or more, if a document has many such drawings in it, it can
  112. % become very large in size and therefore unwieldy.
  113. % 
  114. % The PICT format was defined well before PostScript appeared on the scene,
  115. % and allowed only Quickdraw commands to be part of the file.  For the reasons
  116. % mentioned above, it was felt desirable to allow PostScript descriptions of
  117. % of objects to be included in these files as well. This was accomplished by
  118. % making use of the comment command in Quickdraw: if a program wants to make use
  119. % of PostScript for printing, it simply includes all the necessary commands as
  120. % comments in the PICT description (which makes the PICT file or resource more
  121. % than twice as long).  Such PICT files have two complete descriptions stored
  122. % along with a significant amount of overhead, and any Mac application reading
  123. % them needs to skip over a lot of material. To make matters more efficient,
  124. % another format was developed to store the Quickdraw and PostScript
  125. % descriptions known as Encapsulated PostScript Format (EPSF).  In this format,
  126. % the two graphic object descriptions are stored as separate parts of a Macintosh
  127. % file, with the Quickdraw description stored in the resource fork of the file, 
  128. % and the PostScript description stored in the data fork. Most drawing programs
  129. % either use EPSF to store objects (e.g., Adobe Illustrator) or are capable of
  130. % generating EPSF files for the drawings they produce (e.g., Freehand and
  131. % Cricket Draw).  Textures is able to incorporate any EPSF specified object into
  132. % a document. An EPSF document does not become part of a Textures file, which 
  133. % keeps the Textures document size down to reasonable size.  EPSF files have an
  134. % additional advantage which is that they are simply text files (albeit
  135. % possibly with some resources in the data fork) and usually contain explicitly
  136. % some information that is useful to properly handle the image in other documents. 
  137. % 
  138. % Each graphic object file format, whether Quickdraw or PostScript, contains
  139. % the specification of a bounding box for the object---an imaginary rectangular
  140. % box with sides parallel to the coordinate axes which in theory should just
  141. % surround the object, but in practice is often made a little bit larger than just
  142. % this.  Textures uses the relation between the lower left hand corner of this
  143. % bounding box and the rest of the object to control placing of the object.  When
  144. % a PICT image is copied in the picture window, the dimensions of the object that
  145. % Textures reports is based only on this bounding box. If you need to, you can
  146. % read the data fork of an EPSF file to find the bounding box location in
  147. % this case, but this is often unnecessary.  All EPSF files must follow a
  148. % particular format established by Adobe (there are actually a few different
  149. % versions of this format, but for our purposes the differences are not
  150. % material; the latest version is version 3.0 which is documented in Appendix H
  151. % of the PostScript Language Reference Manual, 2nd ed., Addison-Wesley, 1990).
  152. % These files besides carrying the PostScript commands to draw the picture, 
  153. % have comment lines which provide various pieces of information about the 
  154. % illustration.  The bounding box is provided as one of the first few lines in
  155. % a statement of the form
  156. %              %%BoundingBox llx lly urx ury
  157. % where (llx,lly) are the coordinates of the lower left hand corner of the
  158. % bounding box and (urx,ury) are the coordinates of the upper right corner.
  159. % Units are in pixels (72 pixels/inch) or what is referred to as 'big points'
  160. % in TeX.
  161. %
  162. % When it was indicated above that an EPSF file had a QuickDraw version of the
  163. % figure in it resource fork, it was not entirely true.  The EPSF format does
  164. % not *require* that a QuickDraw version be included and some programs like
  165. % Illustrator allow you to choose whether or not to place a QuickDraw version
  166. % in the EPSF file (and what version of such a QuickDraw 'preview' to use if
  167. % this is to be included).  If no QuickDraw version is included in the EPSF
  168. % file, Textures will not draw the figure in the preview window---you will only
  169. % see the figure when the document is printed on a PostScript printer.
  170. % 
  171. % Here is an example of the first few lines from the data fork [the PostScript
  172. % part] of an EPSF file 'Test Figure' generated by Adobe Illustrator 3.2 (the
  173. % lines begin with the % character after the blanks):
  174. %
  175. %        %!PS-Adobe-3.0 
  176. %        %%Creator: Adobe Illustrator(TM) 3.2
  177. %        %%For: (Peter Galko) (Department of Electrical Engineering)
  178. %        %%Title: (Test Figure)
  179. %        %%CreationDate: (12/13/91) (5:26 PM)
  180. %        %%BoundingBox: 137 587 492 686
  181. %        %%DocumentProcessColors:
  182. %        %%DocumentNeededResources: procset Adobe_packedarray 2.0 0
  183. %        %%+ procset Adobe_cmykcolor 1.1 0
  184. %        %%+ procset Adobe_cshow 1.1 0
  185. %        %%+ procset Adobe_customcolor 1.0 0
  186. %        %%+ procset Adobe_IllustratorA_AI3 1.0 1
  187. %        %AI3_ColorUsage: Black&White
  188. %        %AI3_TemplateBox: 306 396 306 396
  189. %        %AI3_TileBox: 30 31 582 761
  190. %        %AI3_DocumentPreview: None
  191. %        %%EndComments
  192. %        %%BeginProlog
  193. %        %%IncludeResource: procset Adobe_packedarray 2.0 0
  194. %        ...
  195. %
  196. % In this example, we see that the drawing has its lower left hand coordinates
  197. % at coordinates (137,587) and its upper right corner at (492,686).
  198. % The very first line indicates that it is an EPSF file conforming to the 3.0
  199. % specification. We also see lines here that state that the drawing is only in
  200. % black and white, there is no preview (a Quickdraw version of the figure) stored
  201. % in the file [which means that Textures would not be able to draw this figure in
  202. % its preview window; we could have added the Quickdraw version when the file was
  203. % save by Illustrator---it just wasn't done in this case].
  204. %
  205. % A good practice to follow in making drawings is to finish by drawing a box
  206. % around your object, and then setting the line thickness of the box to zero
  207. % and the line to be transparent to make the outlining box invisible (or in some
  208. % way leaving the box unstroked and unfilled); this box should then very nearly
  209. % correspond to the bounding box the application generating the figure should
  210. % specify.  Most graphic applications will specify the bounding box to be one to
  211. % two points larger than the drawn outline.  Often this is unimportant, but if
  212. % necessary can be found by reading the EPSF file using Textures itself or most
  213. % text file editors.  If the figure were drawn so that the lower left hand corner
  214. % of the drawn outline box was placed at the origin (something you can easily do
  215. % with Adobe Illustrator after the figure was already drawn), then the position of
  216. % the lower left-hand corner relative to the bounding box specified lower left-hand
  217. % corner is (-llx,-lly).  The bounding box specified in a file will be reported
  218. % in the Textures log file if you simply add the statement \epsfverbosetrue to the
  219. % the TeX file.
  220. %
  221. % 
  222. % Specifying PICT and EPSF objects
  223. % ================================
  224. % To 'input' a drawing into a typeset document, you make use of the \special
  225. % command in TeX. To import a PICT picture stored in the resource fork of the
  226. % document you simply issue the command
  227. %       \special picture 'name'
  228. % where 'name' is the name of the PICT object (no quotes appear in the command)
  229. % that you gave it when the object was copied into the pictures window. If the
  230. % PICT picture is stored as a separate resource, you simply issue the command
  231. %       \special pictfile 'name'
  232. % Similarly, you include an EPSF file by issuing the command
  233. %       \special illustration 'name'
  234. % where 'name' is replaced by the name (no quotes appear in the command unless
  235. % they are part of the file name [and colons have special significance in file
  236. % names which disallows them as part of a low level file name]) of the EPSF file
  237. % (which should be placed in the same folder as the Textures document;
  238. % otherwise you will have to specify the full directory name including the
  239. % volume name and hierarchy of folders). The lower left point of the bounding
  240. % box of the graphic object is then placed at the current point and the object
  241. % is drawn. Thus the current point must first be moved so that the drawing will
  242. % not overlap onto other output and otherwise be properly positioned. Some
  243. % macros which take care of the positioning and importation of PICT and EPSF
  244. % objects are given below. The macros center drawings on the current line
  245. % according to picture dimensions explicitly given to the macro.  The dimensions
  246. % of the bounding box of a graphic are not known to TeX, only to the printer
  247. % driver and previewer. Thus you can in practice give other dimensions for the
  248. % bounding box of the object if you want to shift the image on the page.  Doing
  249. % so however will change the dimensions of the box that you may want drawn
  250. % around the figure which may be undesireable.  You can shift the figure and
  251. % encompasing box without changing the box size by specifying a value for the
  252. % parameter \shiftleft just before a figure placement macro occurs.  For example,
  253. % saying '\shiftleft=1cm' just before invoking a figure placement macro will make
  254. % the figure shift to the left by one centimeter on the page.  In the case that
  255. % \rlth=0pt [i.e., no outline of the box is to be provided], the same effect could
  256. % have been had by increasing the indicated width of the figure by two
  257. % centimeters.
  258. %
  259. % 
  260. % Macro description and specification:
  261. % ===================================
  262. % 
  263. % The Figure Placement Macros:
  264. % ---------------------------
  265. % 1. The \figure macro
  266. % 2. The \scaledfigure macro
  267. % 3. The \epsffigure macro
  268. % 4. The \scaledepsffigue macro
  269. % 5. The \stretchedepsfigure macro
  270. %
  271. % = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  272. % The \figure macro creates a box of a specified inside dimension and then
  273. % puts the graphic object inside aligning the lower left inside corner with
  274. % the lower left corner of the bounding box of the object. The thickness
  275. % of the lines forming the box are given by the parameter \rlth, and setting 
  276. % this dimension to zero (the default value) results in the suppression
  277. % of the outlining box. The macro also allows further TeX material to be 
  278. % typeset on top of the figure (see the text placement macros below).
  279. %
  280. % Macro \figure #1 #2 by #3 #4 #5 #6 #7
  281. %   first argument:   a few letters indicating the type of graphic file
  282. %                     format---either "epsf", "pict" (for a PICT resource), or
  283. %                     "pictf" (for an external PICT file) is possible.
  284. %   second argument:  the horizontal width of the picture (a number with units
  285. %                     as in 1.23cm, 2.45in, 34.5pt, etc.)  
  286. %   third argument:   the vertical height of the picture (a number with units
  287. %                     as in 1.23cm, 2.45in, 34.5pt, etc.)  Specifying a zero
  288. %                     dimension causes the figure to be suppressed.
  289. %   fourth argument:  the name of the picture (resource or file).
  290. %   fifth argument:   extra information which can add text on top of a picture
  291. %                     (what appears here is TeXed relative to the lower left of
  292. %                     the bounding box)
  293. %   sixth argument:   the figure number (used as defined in the \fignostyle
  294. %                     macro: if this parameter is blank, figure numbers are
  295. %                     suppressed---otherwise the figure number is appended to
  296. %                     "Fig.~" in bold, and followed by \quad in the caption).
  297. %   seventh argument: the figure caption (if nothing is given, a caption is
  298. %                     suppressed, even if a figure number is specified). The
  299. %                     caption style is controlled by the \captionstyle macro, 
  300. %                     which is set to produce a single centered line if the
  301. %                     caption fits on one line, two lines centered one above
  302. %                     the other if the caption has two lines, and otherwise
  303. %                     produces a paragraph style caption. The caption width is
  304. %                     controlled by the dimension \captionwidth, which can be
  305. %                     specified before the call to this macro. At the end of
  306. %                     each use of this macro, \captionwidth is reset to
  307. %                     \normalcaptionsize (currently set to \hsize).  The intent
  308. %                     of this is to allow the user to avoid wide captions under
  309. %                     very narrow figures which can be unattractive. The line
  310. %                     spacing used in a caption is controlled by the parameter
  311. %                     \captionbaselineskip (the original value is 12pt
  312. %                     correspondind to single spacing in the normal
  313. %                     environment).
  314. %
  315. % = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  316. %
  317. % The \scaledfigure macro is a variation on the \figure macro. It has the 
  318. % identical function except that the dimensions and the like are scaled in
  319. % size.
  320. %
  321. % Macro \scaledfigure #1 scaled #2 #3 by #4 #5 #6 #7 #8
  322. %   first argument:   a few letters indicating the type of graphic file
  323. %                     format---either "epsf", "pict" (for a PICT resource), or
  324. %                     "pictf" (for an external PICT file) is possible.
  325. %   second argument:  an integer giving the scale in TeX units
  326. %                     (1000 = original size) 
  327. %   third argument:   the horizontal width of the picture before scaling (a
  328. %                     number with units as in 1.23cm, 2.45in, 34.5pt, etc.) 
  329. %   fourth argument:  the verticle height of the picture before scaling (a  
  330. %                     number with units as in 1.23cm, 2.45in, 34.5pt, etc.)
  331. %   fifth argument:   the name of the picture (resource or file)
  332. %   sixth argument:   extra information which can add text on top of a picture
  333. %                     (what appears here is TeXed relative to the lower left of
  334. %                     the bounding box). Dimensions used in the text placement
  335. %                     macros below are scaled too.
  336. %   seventh argument: the figure number (used as defined in the \fignostyle
  337. %                     macro: if this parameter is blank, figure numbers are
  338. %                     suppressed---otherwise the figure number is appended to
  339. %                     "Fig.~" in bold, and followed by \quad in the caption).
  340. %   eighth argument:  the figure caption (if nothing is given, a caption is
  341. %                     suppressed, even if a figure number is specified). The
  342. %                     caption style is controlled by the \captionstyle macro, 
  343. %                     which is set to produce a single centered line if the
  344. %                     caption fits on one line, two lines centered one above
  345. %                     the other if the caption has two lines, and otherwise
  346. %                     produces a paragraph style caption. The caption width is
  347. %                     controlled by the dimension \captionwidth, which can be
  348. %                     specified before the call to this macro. At the end of
  349. %                     each use of this macro, \captionwidth is reset to
  350. %                     \normalcaptionsize (currently set to \hsize). The line
  351. %                     spacing used in a caption is controlled by the parameter
  352. %                     \captionbaselineskip (the original value is 12pt
  353. %                     correspondind to single spacing in the normal
  354. %                     environment).
  355. %
  356. % = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  357. % = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  358. %
  359. % Automatic EPSF Macros
  360. % ---------------------
  361. % The \epsffigure macro is a version of the \figure macro which is only for EPSF
  362. % figures, and differs in that the figure dimensions are determined by Textures
  363. % from the bounding box specification in the EPSF file.  Thus the macro call does
  364. % not provide the figure dimensions.  In this and the following two macros, by
  365. % issueing a \epsfverbosetrue command, the macros can be made to report the size
  366. % of the bounding box for the EPSF files in the log file
  367. %
  368. % Macro \epsffigure #1 #2 #3 #4 
  369. %   first argument:   the name of the picture (resource or file)
  370. %   second argument:  extra information which can add text on top of a picture
  371. %                     (what appears here is TeXed relative to the lower left of
  372. %                     the bounding box). Dimensions used in the text placement
  373. %                     macros below are scaled too.
  374. %   third argument:   the figure number (used as defined in the \fignostyle
  375. %                     macro: if this parameter is blank, figure numbers are
  376. %                     suppressed---otherwise the figure number is appended to
  377. %                     "Fig.~" in bold, and followed by \quad in the caption).
  378. %   fourth argument:  the figure caption (if nothing is given, a caption is
  379. %                     suppressed, even if a figure number is specified). The
  380. %                     caption style is controlled by the \captionstyle macro, 
  381. %                     which is set to produce a single centered line if the
  382. %                     caption fits on one line, two lines centered one above
  383. %                     the other if the caption has two lines, and otherwise
  384. %                     produces a paragraph style caption. The caption width is
  385. %                     controlled by the dimension \captionwidth, which can be
  386. %                     specified before the call to this macro. At the end of
  387. %                     each use of this macro, \captionwidth is reset to
  388. %                     \normalcaptionsize (currently set to \hsize). The line
  389. %                     spacing used in a caption is controlled by the parameter
  390. %                     \captionbaselineskip (the original value is 12pt
  391. %                     correspondind to single spacing in the normal
  392. %                     environment).
  393. %
  394. % = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  395. %
  396. % The \scaledepsffigure macro is a version of the \epsffigure macro which
  397. % differs only in that the figure is scaled in size in the document.  Thus the
  398. % macro call does not include the figure dimensions.
  399. %
  400. % Macro \scaledepsffigure scaled #1 #2 #3 #4 #5 
  401. %   first argument:   an integer giving the scale in TeX units
  402. %                     (1000 = original size) 
  403. %   second argument:  the name of the picture (resource or file)
  404. %   third argument:   extra information which can add text on top of a picture
  405. %                     (what appears here is TeXed relative to the lower left of
  406. %                     the bounding box). Dimensions used in the text placement
  407. %                     macros below are scaled too.
  408. %   fourth argument:  the figure number (used as defined in the \fignostyle
  409. %                     macro: if this parameter is blank, figure numbers are
  410. %                     suppressed---otherwise the figure number is appended to
  411. %                     "Fig.~" in bold, and followed by \quad in the caption).
  412. %   fifth argument:   the figure caption (if nothing is given, a caption is
  413. %                     suppressed, even if a figure number is specified). The
  414. %                     caption style is controlled by the \captionstyle macro, 
  415. %                     which is set to produce a single centered line if the
  416. %                     caption fits on one line, two lines centered one above
  417. %                     the other if the caption has two lines, and otherwise
  418. %                     produces a paragraph style caption. The caption width is
  419. %                     controlled by the dimension \captionwidth, which can be
  420. %                     specified before the call to this macro. At the end of
  421. %                     each use of this macro, \captionwidth is reset to
  422. %                     \normalcaptionsize (currently set to \hsize).   The line
  423. %                     spacing used in a caption is controlled by the parameter
  424. %                     \captionbaselineskip (the original value is 12pt
  425. %                     correspondind to single spacing in the normal
  426. %                     environment).
  427. %
  428. %
  429. % = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  430. %
  431. % The \stretchedepsffigure macro is a version of the \epsffigure macro which
  432. % allows the figure to be scaled in different ways to fit a specified size. 
  433. % This allows only the contents of the EPSF file to be stretched, not
  434. % the overlayed text. These effects will appear only in the printed output,
  435. % although if a figure box is displayed, on the Macintosh's screen it will be
  436. % have the proper dimensions and have its lower left hand corner appear in the
  437. % same location as does the final box on the page.  The macro allows the 
  438. % specification of the final width of the bounding box of the scaled drawing or
  439. % the final height of the scaled drawing and possibly both.  When only one
  440. % final dimension is specified, the figure is scaled uniformly in both
  441. % directions.  When both final sizes are specified, the figure is scaled
  442. % independently in the two directions. 
  443. %
  444. % Macro \stretchedepsffigure #1 by #2 #3 #4 #5 #6 
  445. %   first argument:   the desired final horizontal width of the picture (a number
  446. %                     with units as in 1.23cm, 2.45in, 34.5pt, etc.)  If a zero
  447. %                     is specified, then the final horizontal width is computed
  448. %                     from uniformly scaling the figure to have a height
  449. %                     specified by the second parameter.  If both parameters are
  450. %                     zero, then the figure is suppressed (although a caption 
  451. %                     will remain).
  452. %   second argument:  the desired final vertical height of the picture (a number
  453. %                     with units as in 1.23cm, 2.45in, 34.5pt, etc.)  If a zero
  454. %                     is specified, then the final vertical height is computed
  455. %                     from uniformly scaling the figure to have a width
  456. %                     specified by the first parameter.  If both parameters are
  457. %                     zero, then the figure is suppressed (although a caption 
  458. %                     will remain).
  459. %   third argument:   the name of the EPSF file.
  460. %   fourth argument:  extra information which can add text on top of a picture
  461. %                     (what appears here is TeXed relative to the lower left of
  462. %                     the bounding box)
  463. %   fifth argument:   the figure number (used as defined in the \fignostyle
  464. %                     macro: if this parameter is blank, figure numbers are
  465. %                     suppressed---otherwise the figure number is appended to
  466. %                     "Fig.~" in bold, and followed by \quad in the caption).
  467. %   sixth argument:   the figure caption (if nothing is given, a caption is
  468. %                     suppressed, even if a figure number is specified). The
  469. %                     caption style is controlled by the \captionstyle macro, 
  470. %                     which is set to produce a single centered line if the
  471. %                     caption fits on one line, two lines centered one above
  472. %                     the other if the caption has two lines, and otherwise
  473. %                     produces a paragraph style caption. The caption width is
  474. %                     controlled by the dimension \captionwidth, which can be
  475. %                     specified before the call to this macro. At the end of
  476. %                     each use of this macro, \captionwidth is reset to
  477. %                     \normalcaptionsize (currently set to \hsize).  The line
  478. %                     spacing used in a caption is controlled by the parameter
  479. %                     \captionbaselineskip (the original value is 12pt
  480. %                     correspondind to single spacing in the normal
  481. %                     environment).
  482. %
  483. %
  484. % Macro Definitions
  485. % ===============================================================================
  486. %
  487. \catcode`\@=11
  488. \newskip\prefigureskip \newskip\prefigureskipshort
  489. \newskip\postfigureskip \newskip\prefiglabel 
  490. %
  491. % \prefigureskip defines the space between the material before a figure and
  492. %    the top of the figure itself when the figure is wide
  493. % \prefigureskipshort defines the space between the material before a figure
  494. %    and the top of the figure itself when the figure is narrow
  495. \prefigureskip=10pt plus3pt minus2pt \prefigureskipshort=2pt plus3pt minus1pt
  496. % all the glue below is used with any baselineskip glue suppressed
  497. % \prefiglabel defines the glue between outlininging box and figure label
  498. % \postfiglabel defines the glue between the figure caption and the material
  499. %  following (from the bounding box to the following material when the figure
  500. %  caption is supressed)
  501. \prefiglabel=4pt \postfigureskip=16pt plus 2ptminus 2pt
  502. %
  503. \newdimen\rlth \newcount\lines \rlth=0pt \def\nothing{} \newdimen\figwidth 
  504. \newcount\count@@ \newcount\cnt@ \newcount\cnt@@ \newcount\cnt@@@
  505. \newdimen\captionwidth \newdimen\captionbaselineskip \captionbaselineskip=12pt
  506. \newdimen\leftshift \leftshift=0pt
  507. \newcount\scalefx \newcount\scalefy \scalefx=1000 \scalefy=1000
  508. \newdimen\normalcaptionwidth \normalcaptionwidth=\hsize
  509. \captionwidth=\normalcaptionwidth
  510. \def\@epsf{epsf} \def\@pict{pict} \def\@pictf{pictf}
  511. \newdimen\xoffset \newdimen\yoffset \xoffset=0pt \yoffset=0pt
  512. %
  513. \def\figure #1 #2 by #3 #4 #5 #6 #7{{\def\@ft{#1}
  514. \global\scalefx=1000\global\scalefy=1000
  515. $$
  516. \abovedisplayskip=\prefigureskip \belowdisplayskip=0pt 
  517. \lineskip=0pt \baselineskip=0pt \abovedisplayshortskip=\prefigureskipshort
  518. \belowdisplayshortskip=0pt \postdisplaypenalty=10000 \predisplaypenalty=200
  519. \dimen0=#3
  520. \ifdim\dimen0 = 0pt\else 
  521.   \vbox{\hmaxbox to \hsize{\vrule width\rlth
  522.     \vbox to#3{\offinterlineskip\hrule width#2 height\rlth
  523.       \vbox to 0pt{\hrule width#2 height 0pt\vskip#3
  524.       \ifx \@ft\@pict\special{picture #4}
  525.        \else\ifx \@ft\@epsf\special{illustration #4}
  526.         \else\ifx \@ft\@pictf\special{pictfile #4}
  527.          \else\message{Illegal use of figure macro. The first argument should be}
  528.               \message{'pict' (for a PICT image stored in the Textures file),}
  529.               \message{'pictf' (for a PICT image stored as a separate file), or}
  530.               \message{'epsf' (for an EPSF image stored in a separate file from}
  531.               \message{the Textures file).}\fi\fi\fi
  532.       #5\vss}\vfill\hrule height \rlth
  533.     }\vrule width \rlth\hskip 2\leftshift}\par}
  534. \fi
  535. $$\par
  536. \xdef\figcaption{#7} \ifx\figcaption\nothing\else\captionstyle{#6}{#7}\fi
  537. \vskip\postfigureskip} \nointerlineskip \xoffset=0pt \yoffset=0pt \leftshift=0pt}
  538. %
  539. \def\fignostyle#1{\xdef\figno{#1}\if\figno\nothing \else{\bf Fig.~#1.}\quad\fi}
  540. \def\captionstyle#1#2{\vskip \prefiglabel \nointerlineskip
  541.  {\hsize=\captionwidth \baselineskip=\captionbaselineskip
  542.  \parfillskip=0pt plus 1fil \parindent=0.0pt \parskip=0pt
  543.  \global\setbox1=\vtop{\hskip\parfillskip\fignostyle{#1}
  544.                  #2\par\global\lines=\prevgraf}}
  545.  \ifnum\lines=1\vtop{\centerline{\box1}}
  546.  \else
  547.   \ifnum\lines=2\vtop{\centerline{\hsize=\captionwidth
  548.       \vtop{\leftskip=0pt plus 1fil \rightskip=0pt plus 1fil
  549.       \parfillskip=0pt\ignorespaces {\noindent\fignostyle{#1}} #2\vskip 0pt}}}
  550.   \else \vtop{\centerline{\hsize=\captionwidth
  551.    \vtop{\leftskip=0.3in \hskip -0.3in\fignostyle{#1} #2\vskip 0pt}}}
  552.   \fi
  553.  \fi \captionwidth=\normalcaptionwidth}
  554. %
  555. \def\hmaxbox to #1#2{\setbox2 = \hbox{#2} 
  556.  \ifdim \wd2>#1 \hbox to #1{\hss\box2\hss} \global\figwidth=#1
  557.   \else \box2 \global\figwidth=\wd2 
  558.   \fi}
  559. %
  560. %%
  561. %
  562. \def\scaledfigure #1 scaled #2 #3 by #4 #5 #6 #7 #8{{\def\@ft{#1}
  563. \global\scalefx=#2\global\scalefy=#2
  564. $$
  565. \abovedisplayskip=\prefigureskip \belowdisplayskip=0pt
  566. \lineskip=0pt \baselineskip=0pt \abovedisplayshortskip=\prefigureskipshort
  567. \belowdisplayshortskip=0pt \postdisplaypenalty=10000 \predisplaypenalty=200
  568. \dimen0=#3 \dimen1=#4 \divide\dimen0 by 1000 \divide\dimen1 by 1000
  569. \multiply\dimen0 by #2 \multiply\dimen1 by #2
  570. \vbox{\hmaxbox to \hsize {\vrule width\rlth
  571.   \vbox to\dimen1{\offinterlineskip\hrule width\dimen0 height\rlth
  572.     \vbox to 0pt{\hrule width\dimen0 height 0pt\vskip\dimen1
  573.     \ifx \@ft\@pict \special{picture #5 scaled #2}
  574.      \else\ifx \@ft\@epsf \special{illustration #5 scaled #2}
  575.       \else\ifx \@ft\@pictf\special{pictfile #5}
  576.        \else\message{Illegal use of figure macro. The first argument should be}
  577.             \message{'pict' (for a PICT image stored in the Textures file),}
  578.             \message{'pictf' (for a PICT image stored as a separate file), or}
  579.             \message{'epsf' (for an EPSF image stored in a separate file from}
  580.             \message{the Textures file).}\fi\fi\fi
  581.     #6\vss}\vfill\hrule height \rlth
  582.   }\vrule width \rlth\hskip 2\leftshift}\par}
  583. $$\par
  584. \xdef\figcaption{#8} \ifx \figcaption\nothing\else\captionstyle{#7}{#8}\fi
  585. \vskip\postfigureskip}
  586. \nointerlineskip \xoffset=0pt \yoffset=0pt \leftshift=0pt}
  587. %
  588. %%
  589. %
  590. \def\epsffigure #1 #2 #3 #4{\epsfgetbb{#1}
  591.     \ifepsfbbfound
  592.         \ifepsfbbNAN
  593.             \figure epsf 0pt by 0pt {#1} {#2} {#3} {#4}
  594.         \else 
  595.             \figure epsf {\the\epsfwidth} by {\the\epsfheight} {#1} {#2} {#3} {#4}
  596.         \fi
  597.     \else
  598.         \figure epsf 0pt by 0pt {#1} {#2} {#3} {#4}
  599.     \fi}
  600.  
  601. \def\scaledepsffigure scaled #1 #2 #3 #4 #5{\epsfgetbb{#2}
  602.     \ifepsfbbfound
  603.         \ifepsfbbNAN
  604.             \figure epsf 0pt by 0pt {#2} {#3} {#4} {#5}
  605.         \else
  606.             \scaledfigure epsf scaled #1 {\the\epsfwidth} by {\the\epsfheight} {#2} 
  607.                 {#3} {#4} {#5}\fi
  608.     \else
  609.         \figure epsf 0pt by 0pt {#2} {#3} {#4} {#5}
  610.     \fi}
  611. %
  612. %  If you want TeX to report the size of the figure (as a message
  613. %   on your terminal when it processes each figure), say `\epsfverbosetrue'.
  614. %
  615. \newread\epsffilein      % file to \read
  616. \newdimen\epsfwidth      % figure width
  617. \newdimen\epsfheight     % figure height
  618. \newif\ifepsffilereadon  % continue looking for the bounding box?
  619. \newif\ifepsfbbfound     % bounding box comment found
  620. \newif\ifepsfbbNAN       % bounding box is not specified
  621. \newif\ifepsfverbose     % report what you're making?
  622. {\catcode`\%=12 \global\def\pcnt{%}}
  623. %
  624. \def\epsfgetbb#1{%
  625. %
  626. %   The first thing we need to do is to open the
  627. %   PostScript file, if possible.
  628. %
  629.     \openin\epsffilein=#1
  630.     \ifeof\epsffilein\errmessage{I couldn't open the file #1.  I am ignoring the figure}
  631.     \else
  632. %
  633. %   Okay, we got it. Now we'll scan lines until we find one that doesn't
  634. %   start with %. We're looking for the bounding box comment.
  635. %
  636.       {\epsffilereadontrue \chardef\other=12
  637.        \def\do##1{\catcode`##1=\other}\dospecials \catcode`\ =10
  638.        \loop
  639.            \read\epsffilein to \epsffileline
  640.            \ifeof\epsffilein\epsffilereadonfalse
  641.            \else
  642. %
  643. %   We check to see if the first character is a % sign;
  644. %   if not, we stop reading (unless the line was entirely blank);
  645. %   if so, we look further and stop only if the line begins with
  646. %   `%%BoundingBox:'.
  647. %
  648.                \expandafter\epsfaux\epsffileline:. \\%
  649.            \fi
  650.            \ifepsffilereadon\repeat
  651.        \ifepsfverbose
  652.            \ifepsfbbfound
  653.               \immediate\write16{The bounding box comment in the file "#1" is:"}
  654.               \immediate\write16{\space\space\space"\pcnt\pcnt BoundingBox \epsfllx\space%
  655.                        \epsflly\space\epsfurx\space\epsfury"}
  656.            \else
  657.               \immediate\write16{No bounding box comment found in "#1".  The figure is ignored}
  658.            \fi
  659.        \else\fi
  660.        \ifepsfbbNAN
  661.            \immediate\write16{The bounding box values in "#1" are unknown.  The figure is ignored.}\fi
  662.        }
  663.        \closein\epsffilein
  664.     \fi}%
  665. %
  666. %   We still need to define the tricky \epsfaux macro. This requires
  667. %   a couple of magic constants for comparison purposes.
  668. %
  669. {\catcode`\%=12 \global\let\epsfpercent=%\global\def\epsfbblit{%BoundingBox}}%
  670. %
  671. %   So we're ready to check for `%BoundingBox:' and to grab the
  672. %   values if they are found.
  673. %
  674. \long\def\epsfaux#1#2:#3\\{
  675.    \ifx#1\epsfpercent
  676.        \def\testit{#2}
  677.        \ifx\testit\epsfbblit
  678.            \epsffilereadonfalse
  679.            \global\epsfbbfoundtrue
  680.            \epsfgrab #3 . . . \\%
  681.        \else\fi
  682.    \else
  683.        \ifx#1\par                    % stop reading the file if a noncomment
  684.        \else\epsffilereadonfalse\fi  % nonblank line is found in the file
  685.    \fi}%
  686. %
  687. %   Here we grab the values and stuff them in the appropriate definitions.
  688. %
  689. \def\epsfgrab #1 #2 #3 #4 #5\\{%
  690.    \global\def\epsfllx{#1}
  691.    \ifx\epsfllx\empty
  692.        \epsfgrab #2 #3 #4 #5 .\\
  693.    \else
  694.        \global\def\epsflly{#2}
  695.        \global\def\epsfurx{#3}
  696.        \global\def\epsfury{#4}
  697.        \epsfbbNANfalse
  698.        \checkifnumber{#1}\checkifnumber{#2}\checkifnumber{#3}\checkifnumber{#4}
  699.        \ifepsfbbNAN
  700.        \else
  701.           {\epsfwidth=#3 bp\dimen0=#1 bp\global\advance\epsfwidth by -\dimen0
  702.            \epsfheight=#4 bp\dimen0=#2 bp\global\advance\epsfheight by -\dimen0}
  703.        \fi
  704.    \fi}%
  705. %
  706. % The macros below will check if a string is a real number or not.  Spaces in the
  707. % string are ignored entirely.  Thus "1 1" is a number, as is "+5", "-3.0",
  708. % but not "++6", nor "1.2.0".  When a nonnumber is encountered, the command \epsfbbNANtrue
  709. % is executed.  
  710. %
  711. \newif\ifstartnumber \newif\ifnodecimalpt 
  712. \def\checkifnumber#1{\count@=0 \startnumbertrue\nodecimalpttrue\checknumber#1\end
  713.     \ifnum\count@=0 \global\epsfbbNANtrue\else\fi}
  714. \def\checknumber#1{
  715.    \ifx#1\end\let\next=\relax
  716.    \else
  717.        \let\next=\checknumber
  718.        \advance\count@ by 1                          % count the number of digits
  719.        \count@@=`#1 
  720.        \ifepsfbbNAN
  721.        \else
  722.            \ifnum\count@@ > 47                        % ASCII for digits is 48 -- 57
  723.                \ifnum\count@@ < 58 \startnumberfalse
  724.                \else \global\epsfbbNANtrue\fi
  725.            \else
  726.                \if#1.                                % check for a decimal point possibility
  727.                    \startnumberfalse
  728.                    \advance\count@ by -1
  729.                    \ifnodecimalpt
  730.                        \nodecimalptfalse
  731.                    \else
  732.                        \global\epsfbbNANtrue
  733.                    \fi
  734.                \else
  735.                    \ifstartnumber                    % check for a leading sign
  736.                        \if#1+
  737.                            \startnumberfalse
  738.                            \advance\count@ by -1
  739.                        \else
  740.                            \if#1-
  741.                                \startnumberfalse
  742.                                \advance\count@ by -1
  743.                            \else
  744.                                \global\epsfbbNANtrue
  745.                            \fi
  746.                        \fi
  747.                    \else
  748.                        \global\epsfbbNANtrue
  749.                    \fi
  750.                \fi
  751.            \fi
  752.        \fi
  753.    \fi
  754.    \next}
  755. %
  756. %
  757. %
  758. % The Text Placement Macros
  759. % -------------------------
  760. % A common problem one encounters in drawing objects relates to drawing in text.
  761. % This is especially true in adding mathematics to a figure, or when one wants 
  762. % to label a figure's elements using the CM fonts which are only available in
  763. % TeX (except for the CM fonts rendered in Postscript form which can be
  764. % accessed just as any other Macintosh font). To accomplish this, the following
  765. % macros may be used to position material relative to a reference point which is 
  766. % initially at the lower left hand corner of the the bounding box of the
  767. % drawing. You simply specify to the appropriate macro how far to move (up and to
  768. % the right are positive directions) and how to position text about the "end"
  769. % location (either left, centered, or right justified horizontally, and with the
  770. % baseline, textaxis (defined by considering the x-height of the current font) 
  771. % or mathaxis at the end point, or with vertical top or bottom justification or
  772. % centering). The text can also be rotated about the end point, although this is
  773. % done by going behind Texture's back by sending unexpected PostScript stuff to
  774. % the LaserWriter to acheive the effect. As a result, rotation thus works only
  775. % on PostScript printers.
  776. %
  777. % Macro \position #1 #2 #3 by #4 #5 #6
  778. %   first argument:  one of the words "left", "center", or "right" to
  779. %                    indicate how the material of #6 is to be centered in the 
  780. %                    horizontal ("left" means that the material is left
  781. %                    justified where the left vertical edge of the 
  782. %                    material is at the end point; "right" and
  783. %                    "center" have similar corresponding meanings.)
  784. %   second argument: one of the words "top", "center", "bottom", "baseline",
  785. %                    "mathaxis", or "textaxis" to indicate how the material is 
  786. %                    to be positioned vertically. "top" means that the top of
  787. %                    the box enclosing the material of #6 is placed at the level
  788. %                    of the end point, with "bottom" and "center" having
  789. %                    similar corresponding meanings. "mathaxis" means that the
  790. %                    normal position of the mathaxis of material specified 
  791. %                    by \fontdimen22 of \textfont2 is placed at the level
  792. %                    of the displaced point; "textaxis" means that the
  793. %                    material is placed so that the midpoint of a letter "x"
  794. %                    from \texfont0 would be at the level of the displaced
  795. %                    point. Anything else (including "baseline") will have
  796. %                    the baseline positioned at the level of the displaced
  797. %                    point.
  798. %   third argument:  the horizontal displacement (a number with units as in
  799. %                    1.23cm, 2.45in, 34.5pt, etc.) from the reference point
  800. %                    to the end point for the material to be added. The
  801. %                    actual displacement will be this value scaled by the
  802. %                    scale factor in \scaledfigure or \scaledepsffigure or 
  803. %                    the effective horizontal scalefactor in
  804. %                    \stretchedepsffigure if any of these macros are used.
  805. %   fourth argument: the verticle displacement (a number with units as in
  806. %                    1.23cm, 2.45in, 34.5pt, etc.) from the reference point
  807. %                    to the end point for the material to be added. The
  808. %                    actual displacement will be this value scaled by the
  809. %                    scale factor in \scaledfigure or \scaledepsffigure or 
  810. %                    the effective horizontal scalefactor in
  811. %                    \stretchedepsffigure if any of these macros are used.
  812. %   fifth argument:  the rotation in degrees counter-clockwise of the material
  813. %                    of #6 about the displaced point to be applied (the 
  814. %                    rotation does not appear in the preview).
  815. %   sixth argument:  the text to be overlayed on the picture.
  816. %
  817. %
  818. % The \reposition macro simply moves the reference point so that if the lower
  819. % left hand corner of the bounding box isn't where it was thought to be, the
  820. % reference point can in fact be moved to the position desired. The bounding
  821. % box of a picture is specified by the program that generates the drawing, and
  822. % is not always in predictable locations, hence the need for this macro. For
  823. % example, if you draw a simple rectangular box in Adobe Illustrator, and
  824. % perhaps just paint the box insides or even leave the box unpainted,
  825. % Illustrator does not specify the coordinates of the box corners as the
  826. % bounding box, but rather seems to indicate the bounding box is a slightly
  827. % larger box encompasing the drawn box. This is a small difference which can
  828. % be noticeable in some situations (the location of the bounding box can be
  829. % found for an EPSF file by reading the comments in header part of the EPSF
  830. % file or by specifying \epsfverbosetrue before using the \epsffigure macro
  831. % and reading the TeX log file produced by Textures).
  832. %
  833. % Macro \reposition #1 by #2
  834. %   first argument:  the horizontal displacement (a number with units as in
  835. %                    1.23cm, 2.45in, 34.5pt, etc.) from the lower left hand 
  836. %                    corner of the bounding box to where the reference point is
  837. %                    to be positioned. The final position will be this value
  838. %                    scaled by the scale factor in \scaledfigure if this macro
  839. %                    is being used.
  840. %   forth argument:  the verticle displacement (a number with units as in
  841. %                    1.23cm, 2.45in, 34.5pt, etc.) from the lower left hand 
  842. %                    corner of the bounding box to where the reference point is
  843. %                    to be positioned. The final position will be this value
  844. %                    scaled by the scale factor in \scaledfigure if this macro
  845. %                    is being used.
  846. %
  847. % The \incposition macro is the same as \reposition, only its effects are 
  848. % relative to the last position of the reference point and not to the lower 
  849. % left corner of the original bounding box.  This can be particularly useful
  850. % in figures that are actually composed of subfigures.
  851. %
  852. % Macro \incposition #1 by #2
  853. %   first argument:  the horizontal displacement (a number with units as in
  854. %                    1.23cm, 2.45in, 34.5pt, etc.) from the current position 
  855. %                    of the reference point to where the reference point is 
  856. %                    to be positioned. The final position of the reference
  857. %                    will be the current position of the reference point 
  858. %                    shifted by this value scaled by the scale factor in 
  859. %                    \scaledfigure.                    
  860. %   forth argument:  the verticle displacement (a number with units as in
  861. %                    1.23cm, 2.45in, 34.5pt, etc.) from the current position 
  862. %                    of the reference point to where the reference point is 
  863. %                    to be positioned. The final position of the reference
  864. %                    will be the current position of the reference point 
  865. %                    shifted by this value scaled by the scale factor in 
  866. %                    \scaledfigure.
  867. %               
  868. % AN EXAMPLE
  869. % ==========
  870. % An example of a figure in EPSF file being imported with text added using the 
  871. % macros defined here. The figure is stored in an EPSF file with name
  872. % "TestFigure" and has the axes labeled with TeX, and other comments added. The
  873. % figure is scaled up by 10% from the version in the EPSF file. A simple caption
  874. % is added.  The figure was generated using Illustrator 3.2.
  875. %
  876. % \scaledfigure epsf scaled 1100 13.0cm by 5.25cm TestFigure {
  877. %  \reposition 1bp by 1bp %the bounding box is off by this much
  878. %  \position right baseline 1.9cm by 3.5cm 0
  879. %  {$\matrix{\hbox{generated}\cr\hbox{number}\cr (r_n)\cr}$}
  880. %  \position left baseline 5.5cm by 0.25cm 0 {\hbox{seed \ \ $(r_{n-1})$}}
  881. %  \position right textaxis 1.90cm by 4.50cm 0 {$N$}
  882. %  \position center top 9.00cm by 0.4cm 0 {$N$}
  883. %  \position center top 2.00cm by 0.4cm 0 {$0$}
  884. %  \position left center 9.6cm by 3.5cm 0 {$\matrix{\hbox{($N$ is typically
  885. %   the}\hfill\cr \hbox{maximum value}\hfill\cr
  886. %   \hbox{representable in}\hfill\cr
  887. %   \hbox{the computer)}\hfill\cr}$}} 1 {The Multiplicative Congruential Method}
  888. %
  889. \def\@c{center} \def\@r{right} \def\@l{left} \def\@t{top} \def\@b{bottom}
  890. \def\@a{mathaxis} \def\@x{textaxis} \def\@zero{0}
  891. %
  892. \def\position #1 #2 #3 by #4 #5 #6{{
  893. % the next few lines of the macro are some contortions performed to get TeX
  894. % to scale the dimensions given in #3 and #4 accurately given that there is
  895. % a limit on the size of dimensions of 2**30 sp and only integer arithmetic 
  896. % available. (This is based on the fact that all dimension arithmetic is
  897. % done in terms of values specified in small points, and the integer 
  898. % division is truncated, not rounded.)  The result is the correctly rounded
  899. % scaled value.
  900. \dimen0=#3 \dimen3=\dimen0 \divide\dimen0 by 1000 \dimen2=\dimen0
  901.  \multiply\dimen0 by \scalefx \multiply\dimen2 by -1000 \advance\dimen2 by \dimen3
  902.  \multiply\dimen2 by \scalefx 
  903.  \ifdim\dimen2 > 0pt \advance\dimen2 by 500sp \else\advance\dimen2 by -500sp\fi
  904.  \divide\dimen2 by 1000 \advance\dimen0 by \dimen2 
  905. \dimen1=#4 \dimen3=\dimen1 \divide\dimen1 by 1000 \dimen2=\dimen1
  906.  \multiply\dimen1 by \scalefy \multiply\dimen2 by -1000 \advance\dimen2 by \dimen3
  907.  \multiply\dimen2 by \scalefy 
  908.  \ifdim\dimen2 > 0pt \advance\dimen2 by 500sp \else\advance\dimen2 by -500sp\fi
  909.  \divide\dimen2 by 1000 \advance\dimen1 by \dimen2
  910. \def\arga{#1}\def\argb{#2} \def\angle{#5}
  911. \ifx \argb\@a \setbox0=\hbox{\lower\the\fontdimen22\textfont2\hbox{#6}}
  912.  \else\ifx \argb\@c \setbox0=\hbox{\lower \the\fontdimen22\textfont2 
  913.                                     \hbox{$\vcenter{\hbox{#6}}$}}
  914.   \else\ifx \argb\@t \setbox0=\hbox{\vtop{\kern 0pt\hbox{#6}}}
  915.    \else\ifx \argb\@b \setbox0=\hbox{\vbox{\hbox{#6}\kern 0pt}}
  916.     \else\ifx \argb\@x \setbox0=\hbox{\lower 0.5ex\hbox{#6}}
  917.    \else\setbox0=\hbox{#6} \fi\fi\fi\fi\fi
  918. \setbox1=\hbox to 0pt{\ifx\arga\@l\else\hss\fi \box0
  919. \ifx \arga\@r\else\hss\fi} \dp1=0pt 
  920. \vbox to 0pt{\vss\hbox to 0pt{\kern\xoffset\kern \dimen0
  921.      \ifx\zero\angle\box1\else{\rotate #5 \box1}\fi\hss}
  922.      \vskip\yoffset\vskip \dimen1}
  923. \nointerlineskip}}
  924. %
  925. % The macro that does the rotation is due to Charles Karney:
  926. %%
  927. %% Rotation of TeX output with Textures (and maybe? other PostScript drivers)
  928. %%
  929. %% Written by
  930. %%   Charles Karney
  931. %%   Plasma Physics Laboratory   Phone:   +1 609 243 2607
  932. %%   Princeton University        MFEnet:  Karney@PPC.MFEnet
  933. %%   PO Box 451                  ARPAnet: Karney%%PPC.MFEnet@NMFECC.ARPA
  934. %%   Princeton, NJ 08543-0451    Bitnet:  Karney%%PPC.MFEnet@ANLVMS.Bitnet
  935. %%
  936. %% The following assumptions are made about the PostScript that TeXtures
  937. %% generates:
  938. %% (1) A single transform is used for all TeXtures output.
  939. %% (2) The PostScript \special is bracketed by gsave ... grestore.
  940. %% (3) Immediately after the gsave, the coordinate system is translated so the
  941. %%     origin is at the current point; and the y axis is flipped.
  942. %% (4) TeXtures doesn't leave anything on the stack for long periods. (This
  943. %%     simplifies restoring the default coordinate system.)
  944. %%
  945. %% Usage:
  946. %%   abc {\rotate 90 def} ghi
  947. %% On a non-postscript printer this will print the same as ``abc def ghi''.
  948. %% With TeXtures, the ``abc'' and ``ghi'' will appear on the page in the
  949. %% same place as before, however the ``def'' is bodily rotated counter-
  950. %% clockwise by 90 degrees. The rotation is about the bottom left corner of
  951. %% the ``d''. The braces serve to delimit the extent of the rotated text.
  952. %% The rotation angle is specified as an integer number of degrees. It can
  953. %% be negative. \rotate should always appear within a group (not at top-
  954. %% level). Rotations can be stacked, e.g.,
  955. %%   abc {\rotate 90 def \rotate 90 ghi} jkl
  956. %% would print as
  957. %%   ihg
  958. %%      f
  959. %%      e
  960. %%      d
  961. %%   abc         jlk
  962. %% except that the letters ``def'' would be sideways, and ``ghi'' would be
  963. %% upside down.
  964. %
  965. \def\rotate{\afterassignment\@rotate\count@}
  966. \def\@rotate{\aftergroup\@unrotate
  967. \special
  968. {postscript
  969.   0 0 transform                 % Get current location in device coordinates.
  970.   grestore                      % Undoes TeXtures gsave.
  971.   matrix currentmatrix          % Save current transform on stack for use
  972.                                 % by \@unrotate.
  973.   3 1 roll                      % Put transform at back of current location.
  974.   itransform                    % Current location in TeXtures coords
  975.   dup 3 -1 roll                 % Duplicate the location; x y ==> x y x y
  976.   dup 4 1 roll exch
  977.   translate                     % Translate origin to current location
  978.   1 -1 scale                    % Flip y coordinate
  979.   \the\count@\space rotate      % Rotate by \count@
  980.   1 -1 scale                    % Unflip y coordinate
  981.   neg exch neg exch translate   % Translate origin back
  982.   gsave}}                       % To match grestore
  983. \def\@unrotate{\special
  984. {postscript
  985.   grestore                      % Undoes Textures gsave
  986.   setmatrix                     % Set current transform to value saved on
  987.                                 % stack. (Hopefully, it's still there.)
  988.   gsave}}                       % To match grestore
  989. %
  990. % Below is a similar macro which allows stretching and rotation of material.
  991. % It stretches material by the amount by the ratio of its first two arguments
  992. % in the x direction and by the ratio of the third and fourth in the y direction
  993. % and then rotates the object counterclockwise by the fifth argument (in degrees).
  994. % Textures will know nothing about the changes in the dimensions of material until
  995. % the material prints (the screen display will not reflect the transformation).
  996. % [Macro due to P. Galko]
  997. \def\transformation #1 #2 #3 #4 #5 {\dimen0=#1 \cnt@=\dimen0 
  998.   \dimen0=#2 \cnt@@=\dimen0 \dimen0=#3 \cnt@@@=\dimen0 
  999.   \dimen0=#4 \count@@=\dimen0 \count@=#5 \@transf}
  1000. \def\@transf{\aftergroup\@untransf
  1001. \special
  1002. {postscript
  1003.   0 0 transform                 % Get current location in device coordinates.
  1004.   grestore                      % Undoes TeXtures gsave.
  1005.   matrix currentmatrix          % Save current transform on stack for use
  1006.                                 % by \@unrotate.
  1007.   3 1 roll                      % Put transform at back of current location.
  1008.   itransform                    % Current location in Textures coords
  1009.   dup 3 -1 roll                 % Duplicate the location; x y ==> x y x y
  1010.   dup 4 1 roll exch
  1011.   translate                     % Translate origin to current location
  1012.   1 -1 scale                    % Flip y coordinate
  1013.   \the\count@ \space rotate     % Rotate by \count@
  1014.   \the\cnt@ \space 
  1015.   \the\cnt@@ \space div         % compute x scale factor (=#1/#2)
  1016.   \the\cnt@@@ \space 
  1017.   \the\count@@ \space div scale % compute y scale factor with flip (=#3/#4)
  1018.   1 -1 scale                    % Unflip y coordinate
  1019.   neg exch neg exch translate   % Translate origin back
  1020.   gsave}}                       % To match grestore
  1021. \def\@untransf{\special
  1022. {postscript
  1023.   grestore                      % Undoes Textures gsave
  1024.   setmatrix                     % Set current transform to value saved on
  1025.                                 % stack. (Hopefully, it's still there.)
  1026.   gsave}}                       % To match grestore
  1027. %\catcode`\@=12
  1028. %
  1029. \def\reposition #1 by #2 {\xoffset=#1 \dimen0=\xoffset
  1030.   \divide\xoffset by 1000 \dimen1=\xoffset \multiply\xoffset by \scalefx 
  1031.   \multiply\dimen1 by -1000 \advance\dimen0 by \dimen1 \multiply\dimen0 by \scalefx
  1032.   \ifdim\dimen0>0sp\advance\dimen0 by 500sp \else\advance\dimen0 by -500sp\fi
  1033.   \divide\dimen0 by 1000 \advance\xoffset by \dimen0 
  1034.  \yoffset=#2 \dimen0=\yoffset
  1035.   \divide\yoffset by 1000 \dimen1=\yoffset \multiply\yoffset by \scalefy
  1036.   \multiply\dimen1 by -1000 \advance\dimen0 by \dimen1 \multiply\dimen0 by \scalefy
  1037.   \ifdim\dimen0>0sp\advance\dimen0 by 500sp \else\advance\dimen0 by -500sp\fi
  1038.   \divide\dimen0 by 1000 \advance\yoffset by \dimen0 }
  1039. %
  1040. % The next macro is the same as \reposition, only its effects are relative to
  1041. % the last position and not to the original bounding box lower left corner.
  1042. %
  1043. \def\incposition #1 by #2 {\dimen2=\xoffset \xoffset=#1 \dimen0=\xoffset
  1044.   \divide\xoffset by 1000 \dimen1=\xoffset \multiply\xoffset by \scalefx 
  1045.   \multiply\dimen1 by -1000 \advance\dimen0 by \dimen1 \multiply\dimen0 by \scalefx
  1046.   \ifdim\dimen0>0sp\advance\dimen0 by 500sp \else\advance\dimen0 by -500sp\fi
  1047.   \divide\dimen0 by 1000 \advance\xoffset by \dimen0\advance\xoffset by \dimen2
  1048.  \dimen2=\yoffset \yoffset=#2 \dimen0=\yoffset
  1049.   \divide\yoffset by 1000 \dimen1=\yoffset \multiply\yoffset by \scalefy
  1050.   \multiply\dimen1 by -1000 \advance\dimen0 by \dimen1 \multiply\dimen0 by \scalefy
  1051.   \ifdim\dimen0>0sp\advance\dimen0 by 500sp \else\advance\dimen0 by -500sp\fi
  1052.   \divide\dimen0 by 1000 \advance\yoffset by \dimen0\advance\yoffset by \dimen2}
  1053. %
  1054. %
  1055. \def\stretchedepsffigure #1 by #2 #3 #4 #5 #6{
  1056. {\epsfgetbb{#3}
  1057. % First a few contortions to accurately compute scale factors in integer mils
  1058. % (integer out of 1000).  It is assumed that no dimensions involved are larger
  1059. % than (2**30)/10 sp or about 1638.4pt = 22.67in = 57.6cm.  If dimensions exceed
  1060. % this limit, one *MAY* experience some overflow in arithmetic computations.
  1061.  \dimen0=#1 \multiply\dimen0 by 10 \dimen1=\dimen0 \divide\dimen0 by \epsfwidth
  1062.    \scalefx=\dimen0 \count@=\scalefx \multiply\scalefx by 100 
  1063.    \advance\dimen1 by -\count@\epsfwidth
  1064.    \dimen0=\dimen1 \multiply\dimen0 by 10 \dimen1=\dimen0
  1065.    \divide\dimen0 by \epsfwidth \count@=\dimen0 \advance\dimen1 by -\count@\epsfwidth
  1066.    \multiply\count@ by 10\advance\scalefx by \count@ \multiply\dimen1 by 10
  1067.    \advance\dimen1 by 0.5\epsfwidth \divide\dimen1 by \epsfwidth 
  1068.    \advance\scalefx by \dimen1
  1069.  \dimen0=#2 \multiply\dimen0 by 10 \dimen1=\dimen0 \divide\dimen0 by \epsfheight
  1070.    \scalefy=\dimen0 \count@=\scalefy \multiply\scalefy by 100 
  1071.    \advance\dimen1 by -\count@\epsfheight
  1072.    \dimen0=\dimen1 \multiply\dimen0 by 10 \dimen1=\dimen0
  1073.    \divide\dimen0 by \epsfheight \count@=\dimen0 \advance\dimen1 by -\count@\epsfheight
  1074.    \multiply\count@ by 10\advance\scalefy by \count@ \multiply\dimen1 by 10
  1075.    \advance\dimen1 by 0.5\epsfheight \divide\dimen1 by \epsfheight 
  1076.    \advance\scalefy by \dimen1
  1077.  \dimen0=#1 \dimen1=#2
  1078.  \ifdim\dimen0=0sp
  1079.      \ifdim\dimen1=0sp
  1080.          \scalefx=1000 \scalefy=1000 
  1081.      \else
  1082.          \dimen0=\epsfwidth \dimen2=\dimen0 \divide\dimen2 by 1000
  1083.          \advance\dimen0 by -1000\dimen2 \multiply\dimen0 by \scalefy
  1084.          \divide\dimen0 by 1000 \advance\dimen0 by \scalefy\dimen2
  1085.          \scalefx=\scalefy
  1086.      \fi
  1087.  \else
  1088.      \ifdim\dimen1=0sp
  1089.          \dimen1=\epsfheight \dimen2=\dimen1 \divide\dimen2 by 1000         
  1090.          \advance\dimen1 by -1000\dimen2 \multiply\dimen1 by \scalefx
  1091.          \divide\dimen1 by 1000 \advance\dimen1 by \scalefx\dimen2
  1092.          \scalefy=\scalefx
  1093.      \else\fi
  1094.  \fi
  1095.  $$
  1096.  \abovedisplayskip=\prefigureskip \belowdisplayskip=0pt 
  1097.  \lineskip=0pt \baselineskip=0pt \abovedisplayshortskip=\prefigureskipshort
  1098.  \belowdisplayshortskip=0pt \postdisplaypenalty=10000 \predisplaypenalty=200
  1099.  \ifdim\dimen0 = 0pt
  1100.  \else 
  1101.      \vbox{
  1102.          \hmaxbox to \hsize{
  1103.              \ifdim\rlth=0pt\else\vrule width\rlth\fi
  1104.              \vbox to\dimen1{
  1105.                  \offinterlineskip\ifdim\rlth=0pt\else\hrule width\dimen0 height\rlth\fi
  1106.                  \vbox to 0pt{\hrule width \dimen0 height 0pt\vskip\dimen1
  1107.                               {\transformation #1 {\the\epsfwidth} #2 {\the\epsfheight} 0
  1108.                                \special{illustration #3}}
  1109.                               #4\vss}
  1110.                  \vfill\ifdim\rlth=0pt\else\hrule height \rlth\fi
  1111.                  }\ignorespaces
  1112.              \ifdim\rlth=0pt\else\vrule width\rlth\fi\hskip 2\leftshift
  1113.              }\par
  1114.          }
  1115.  \fi
  1116.  $$\par
  1117.  \xdef\figcaption{#6} \ifx\figcaption\nothing\else\captionstyle{#5}{#6}\fi
  1118.  \vskip\postfigureskip
  1119. }\nointerlineskip \xoffset=0pt \yoffset=0pt \leftshift=0pt}
  1120.  
  1121. \catcode`\@=12
  1122. \rlth=0pt
  1123.